unit PessoaJuridicaDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ZDataset, ZSqlUpdate, ZSequence, MainDM, db, QueryConditions, DataRecord;

type

  { TPessoaJuridicaData }

  TPessoaJuridicaData = class(TMainDataModule)
    PessoaJuridicaDatasource: TDatasource;
    PessoaJuridicaZQuery: TZQuery;
    PessoaJuridicaZQuerycnpj: TStringField;
    PessoaJuridicaZQueryid_pessoa_juridica: TLargeintField;
    PessoaJuridicaZQueryinscricao_estadual: TStringField;
    PessoaJuridicaZQueryinscricao_municipal: TStringField;
    PessoaJuridicaZQuerynome_fantasia: TStringField;
    PessoaJuridicaZUpdate: TZUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
    /// Abre o DataSet
    procedure OpenDataSet(); override;
    /// Fecha o DataSet
    procedure CloseDataSet(); override;
    /// Realiza busca
    /// @param(Condicoes são as condições para a busca)
    /// @param(Tabela é a tabela no banco de dados)
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
  end;

var
  PessoaJuridicaData: TPessoaJuridicaData;

implementation

uses ConnectionDM;

{ TPessoaJuridicaData }

procedure TPessoaJuridicaData.DataModuleCreate(Sender: TObject);
begin
     MainDataSet := PessoaJuridicaZQuery;
end;

procedure TPessoaJuridicaData.OpenDataSet;
begin
    ConnectionData.EmptyQuery(PessoaJuridicaZQuery, 'pessoa_juridica');
end;

procedure TPessoaJuridicaData.CloseDataSet;
begin
    PessoaJuridicaZQuery.Close();
end;

procedure TPessoaJuridicaData.Search(Condicoes: TQueryConditions; Tabela: string
  );
begin
  //  ConnectionData.OpenQueryConditions(PessoaJuridicaQuery, Tabela, Condicoes);
end;

initialization
  {$I pessoajuridicadm.lrs}

end.

